ECHO "HCWelcome to The Problem's Australia EP installer.*n"
ECHO " This script will fully install the Australia EP where you want it. Please*n note that you need about 5 Mb of free space on your harddisk during the*n installation. After installation, Australia will take up about 2.6Mb.*n"
ECHO " It IS VITAL that you use this installer. If you copy stuff by hand, we can*n ensure you that some things in the EP won't work. (Some files have been*n deliberately corrupted; they will be restored by the installer.)*n"
ECHO " Coming up is a Path Requester in which you should choose a destination*n directory. If you are unsure wether you have enough diskspace, cancel the*n requester to quit the installation procedure."
ECHO NOLINE "HC Press Return "
SET >NIL: Return ?
ECHO "HC "
;where to install, the Path requester...
LAB Repeat
SET Path ""
SET Path `RequestFile DRAWER "Ram:" DRAWERSONLY TITLE "Select Path for AUSTRALIA!" POSITIVE "Install Here" NEGATIVE "Quit!"`
IF NOT $Path
ECHO "H Are you sure you DON'T want to install Australia? (Y/N)"
SET YPos H
SET YES "Yeah! I hate installing EP's! (What?!) "
SET NO "No! O my God! What have I done!?! (you pressed Quit!...) "
SET label Quit
SKIP SUB_YesNo
ELSE
SKIP DontQuit
ENDIF
LAB Quit
IF $answer EQ Y
SP STOP
ENDCLI
ELSE
SKIP BACK Repeat
ENDIF
LAB DontQuit
DELETE >NIL: Install.DATA
ECHO $scrollDN
LAB questions
ECHO "H Okay, now please answer the following questions...*n"
ECHO " Do you want 8-colour Magic WB icons (in stead of 4-colour)? (Y/N)"
ECHO "H$emptyHC"
ECHO "*n Do you want the new WB backdrop to be activated? (in prefs file!) (Y/N)"
ECHO "H$emptyHC"
ECHO "*n Do you run an 'interlaced' workbench? (Y/N)"
ECHO "H$emptyHC"
ECHO "*n Are you sure about all this? (Y/N)"
ECHO "H$emptyHC"
ECHO ""
;the following makes use of the 'sub-routine', (see further down)
LAB Repeat2
SET Ypos H
SET YES "Yes please, give me the beautyfull ones!"
SET NO "No, I want 4 colour icons..."
SET label Repeat3
SKIP SUB_YesNo
LAB Repeat3
SET Q1 $answer
SET Ypos H
SET YES "Yes, I guess I do."
SET NO "No, just leave me alone will you!"
SET label Repeat4
SKIP SUB_YesNo
LAB Repeat4
SET Q2 $answer
SET Ypos H
SET YES "Yes, I've got loads of memory and/or own a multiscan monitor!"
SET NO "No, I'm just an honest bloke! (Or I own a 1 GIG HD instead!)"
SET label Repeat5
SKIP SUB_YesNo
LAB Repeat5
SET Q3 $answer
SET Ypos H
SET YES "Yes, I'm not stupid you know!"
SET NO "No, I made a little mistake."
SET label Continue
SKIP SUB_YesNo
LAB Continue
SET Q4 $answer
ECHO NOLINE "*n*n*nC Hit The Return Key! (Again) "
SET >NIL: Return ?
IF $Q4 EQ N
ECHO "AC Try again! "
SKIP BACK questions
ENDIF
ECHO $scrollUP$scrollUP
;And now for the backdrops...
ECHO "*ec"
ECHO "You will now have the opportunity to select which background picture will*nbe installed. Wether or not you have chosen to activate it, we will copy*nit to your SYS:Prefs/Patterns directory."
SET label BACKSELEC1
IF $Q1 EQ Y
SKIP Pics8col
ELSE
SKIP Pics4col
ENDIF
LAB BACKSELEC1
ECHO "*n*n*nC 1 C 2 "
IF $Q3 EQ Y
ECHO "H These are nonlaced versions. A laced version will be installed! "